*************************************************************************************
	;Header frs File-linken

	IFD	Flag_project
Flag_packer	set 1
	ENDC
	IFND	Flag_packer
Flag_packer	set 0
	ENDC
	IFEQ	Flag_packer
Flag_packer	set 1
	include	Nutz_project
	ELSEIF
**************************************************************************************

	;a0 = Quellbereich
	;a5 = Zielbereich

Decrunch:
	move.l	(a0)+,d0	;Header
	move.l	(a0)+,d7	;Lnge
	move.l	a5,a4
	add.l	d7,a4		;Endadr
.dc1:
	move.b	(a0)+,d0	;Packbyte
	moveq	#7,d7
.dc2:
	add.b	d0,d0
	bcs.s	.dc3
	move.b	(a0)+,(a5)+
.dc4:
	cmp.l	a5,a4
	bls.s	.dc5
	dbf	d7,.dc2
	bra.s	.dc1
.dc5:
	rts
.dc3:
	move.b	(a0)+,d1
	moveq	#0,d2
	move.b	d1,d2
	asl.w	#4,d2
	move.b	(a0)+,d2
	and.w	#$000f,d1
	addq.w	#2,d1
	move.l	a5,a3
	sub.w	d2,a3
.dc6:
	move.b	(a3)+,(a5)+
	dbf	d1,.dc6
	bra.s	.dc4
	ENDC
